home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TEKNO 1998 February
/
TEKNO 2-1998.iso
/
shareware
/
bigpage10.exe
/
BIGpage.exe
/
0
/
RCDATA
/
TDLGEDIT
/
TDLGEDIT.txt
Wrap
Text File
|
1997-12-11
|
12KB
|
437 lines
object dlgEdit: TdlgEdit
Left = 287
Top = 162
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'BIGpage'
ClientHeight = 364
ClientWidth = 505
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 505
Height = 364
Align = alClient
BevelOuter = bvLowered
TabOrder = 0
object PTSplitter1: TPTSplitter
Left = 1
Top = 35
Width = 503
Height = 328
Align = alClient
Color = clSilver
ParentColor = False
Position = 180
TabOrder = 0
object TPTPane
Left = 0
Top = 0
Width = 180
Height = 328
Index = 0
object tvBIGpage: TPTShellTree
Left = 2
Top = 2
Width = 176
Height = 324
Options = [ptstoAutoFill, ptstoVirtualFolders, ptstoDefaultKeyHandling, ptstoContextMenus, ptstoDynamicRefresh, ptstoIncludeNonFolders]
BorderStyle = bsNone
ShowRoot = False
DragMode = dmAutomatic
HideSelection = False
Indent = 19
OnChanging = tvBIGpageChanging
OnChange = tvBIGpageChange
Align = alClient
ParentColor = False
TabOrder = 0
end
end
object TPTPane
Left = 183
Top = 0
Width = 320
Height = 328
FrameStyle = ptfsNone
Color = clGray
ParentColor = False
Index = 1
object Panel2: TPanel
Left = 0
Top = 0
Width = 320
Height = 328
Align = alClient
BevelOuter = bvNone
BorderWidth = 6
Color = 10420224
TabOrder = 0
object ExtPageControl1: TExtPageControl
Left = 6
Top = 6
Width = 308
Height = 316
ActivePage = TabSheet1
Align = alClient
TabHeight = 20
TabOrder = 0
TabWidth = 70
Color = 10420224
ParentColor = False
TabActiveColor = 10420224
TabActiveFont.Charset = DEFAULT_CHARSET
TabActiveFont.Color = clWhite
TabActiveFont.Height = -11
TabActiveFont.Name = 'MS Sans Serif'
TabActiveFont.Style = []
TabInactiveColor = 10420224
TabInactiveFont.Charset = DEFAULT_CHARSET
TabInactiveFont.Color = clSilver
TabInactiveFont.Height = -11
TabInactiveFont.Name = 'MS Sans Serif'
TabInactiveFont.Style = []
object TabSheet1: TTabSheet
Caption = 'Properties'
object Label3: TLabel
Left = 15
Top = 170
Width = 56
Height = 13
Caption = 'Description:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 15
Top = 49
Width = 30
Height = 13
Caption = 'URLs:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 15
Top = 15
Width = 42
Height = 13
Caption = 'Channel:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object edDescription: TRichEdit
Left = 15
Top = 193
Width = 274
Height = 59
TabOrder = 0
end
object lbURLs: TListBox
Left = 15
Top = 67
Width = 274
Height = 92
ItemHeight = 13
PopupMenu = PopupMenu1
TabOrder = 1
OnClick = lbURLsClick
OnDblClick = lbURLsDblClick
end
object cmbChannel: TComboBox
Left = 65
Top = 12
Width = 57
Height = 21
Style = csDropDownList
ItemHeight = 13
Sorted = True
TabOrder = 2
end
end
object TabSheet2: TTabSheet
Caption = 'Author Info'
object Label2: TLabel
Left = 16
Top = 99
Width = 36
Height = 13
Caption = 'WWW:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object TLabel
Left = 16
Top = 74
Width = 28
Height = 13
Caption = 'Email:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 16
Top = 49
Width = 34
Height = 13
Caption = 'Author:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 16
Top = 138
Width = 267
Height = 52
Caption =
'You can provide the URL of a banner to be displayed whenever som' +
'eone views your BIGpage. This banner will be displayed within t' +
'he left pane of the BIGpage and must be 120 X 60 in size.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clAqua
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
WordWrap = True
end
object Label7: TLabel
Left = 16
Top = 200
Width = 62
Height = 13
Caption = 'Banner URL:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 16
Top = 9
Width = 263
Height = 26
Caption =
'You can provide info about yourself as the author of this BIGpag' +
'e, to enable viewers to contact you.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clAqua
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
WordWrap = True
end
object edAuthor: TEdit
Left = 60
Top = 45
Width = 200
Height = 19
BorderStyle = bsNone
Ctl3D = False
ParentCtl3D = False
TabOrder = 0
end
object edEmail: TEdit
Left = 60
Top = 71
Width = 200
Height = 19
BorderStyle = bsNone
Ctl3D = False
ParentCtl3D = False
TabOrder = 1
end
object edWebsite: TEdit
Left = 60
Top = 97
Width = 200
Height = 19
BorderStyle = bsNone
Ctl3D = False
ParentCtl3D = False
TabOrder = 2
end
object edBannerURL: TEdit
Left = 16
Top = 218
Width = 249
Height = 19
BorderStyle = bsNone
Ctl3D = False
ParentCtl3D = False
TabOrder = 3
end
end
end
end
end
end
object pnlTitle: TPanel
Left = 1
Top = 1
Width = 503
Height = 34
Align = alTop
Alignment = taLeftJustify
BorderWidth = 4
Caption = 'BIGpage:'
Color = clNavy
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object btnNew: TTransparentButton
Left = 190
Top = 5
Width = 49
Height = 24
Hint = 'New BIGpage'
Caption = 'New'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
FrameStyle = fsLight
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = btnNewClick
end
object btnAdd: TTransparentButton
Left = 242
Top = 5
Width = 49
Height = 24
Hint = 'Add URL'
Caption = 'Add'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
FrameStyle = fsLight
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = btnAddPageClick
end
object btnDelete: TTransparentButton
Left = 294
Top = 5
Width = 49
Height = 24
Hint = 'Delete URL'
Caption = 'Delete'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
FrameStyle = fsLight
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = obtnDeleteClick
end
object btnBrowse: TTransparentButton
Left = 346
Top = 5
Width = 49
Height = 24
Hint = 'Browse'
Caption = 'Browse'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
FrameStyle = fsLight
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = btnBrowseClick
end
end
end
object ilLarge: TImageList
Height = 32
Width = 32
Left = 450
Top = 318
end
object PopupMenu1: TPopupMenu
OnPopup = PopupMenu1Popup
Left = 418
Top = 316
object pmiNew: TMenuItem
Caption = '&New'
OnClick = btnNewClick
end
object N2: TMenuItem
Caption = '-'
end
object pmiAdd: TMenuItem
Caption = '&Add URL...'
OnClick = btnAddPageClick
end
object pmiEdit: TMenuItem
Caption = '&Edit URL...'
OnClick = lbURLsDblClick
end
object pmiDelete: TMenuItem
Caption = '&Delete URL'
OnClick = obtnDeleteClick
end
object N1: TMenuItem
Caption = '-'
end
object pmiBrowse: TMenuItem
Caption = '&Browse'
OnClick = pmiBrowseClick
end
end
end
